<pre>-- MODE = "PROFESSEUR"on openBackground  show menubar  hide msg box  pass openBackgroundend openBackgroundon arrowKey direction  if direction is "right" or direction is "down" then go to next cd  if direction is "left" or direction is "up" then go to prev cdend arrowKeyon exitField  set lockText of the target to trueend exitFieldon closeField  set lockText of the target to trueend closeFieldon mouseDown  toComputer  global doFld  if the target is "card field" && quote & "question" & quote   or the target is "card field" && quote & "choix multiple A" & quote   or the target is "card field" && quote & "choix multiple B" & quote   or the target is "card field" && quote & "choix multiple C" & quote   or the target is "card field" && quote & "choix multiple D" & quote  then    -------------------------------------------------------------------------    put getPopMenuItems("specifyFields") into popMenuItems    put popMenu(the mouseLoc,popMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit mouseDown    set itemDelimiter to ";"    put item selectedMenuItem of popMenuItems into doFld    -------------------------------------------------------------------------    if doFld is "editer" then      set lockText of the target to false      exit mouseDown    end if    -------------------------------------------------------------------------    pushCard    put the short name of this cd into questionName    put the short name of the target into fldName    put cd fld "question" into questionText    put cd fld "choix multiple A" into choixA    put cd fld "choix multiple B" into choixB    put cd fld "choix multiple C" into choixC    put cd fld "choix multiple D" into choixD    -------------------------------------------------------------------------    if doFld is "info..." and fldName is "question" then      go to cd questionName of stack pile("questionsInfo")      if the result is not empty then        get newQuestionInfoCard(questionName)        put "Question" && ":" && questionText into fld "Question"        set textStyle of word 1 of fld "Question" to bold        put line 1 of choixA && "..." into fld "A"        put line 1 of choixB && "..." into fld "B"        put line 1 of choixC && "..." into fld "C"        put line 1 of choixD && "..." into fld "D"      end if      exit mouseDown    end if    -------------------------------------------------------------------------    if doFld is "info..." and word 1 to 2 of fldName is "choix multiple" then      put word 3 of fldName into choixName      go to cd (questionName && choixName) of stack pile("choixMultiples") in a new window      if the result is not empty then        get newChoixInfoCard(questionName,choixName)        put word 2 of questionName into fld "Question"        put choixName into fld "Lettre du choix multiple"        if choixName is "A" then put line 1 of choixA && "..."         into fld "Nom du choix multiple"        if choixName is "B" then put line 1 of choixB && "..."         into fld "Nom du choix multiple"        if choixName is "C" then put line 1 of choixC && "..."         into fld "Nom du choix multiple"        if choixName is "D" then put line 1 of choixD && "..."         into fld "Nom du choix multiple"      end if      exit mouseDown    end if  end if  -------------------------------------------------------------------------  if doFld is "note formative..." and fldName is "question" then    go to cd questionName of stack pile("notesFormatives") in a new window    if the result is not empty then get newNoteCard(questionName)    exit mouseDown  end if  -------------------------------------------------------------------------  if doFld is "note formative..."   and word 1 to 2 of fldName is "choix multiple" then    put word 3 of the short name of the target into choixName    put questionName && choixName into cardName    go to cd cardName of stack pile("notesFormatives") in a new window    if the result is not empty then get newNoteCard(questionName,choixName)    exit mouseDown  end if  -------------------------------------------------------------------------  if doFld is "criteres..." and fldName is "question" then    go to cd "Questions" of stack pile("criteresRecherche") in a new window    if the result is not empty then pasPrt    exit mouseDown  end if  -------------------------------------------------------------------------  if doFld is "criteres..."   and word 1 to 2 of fldName is "choix multiple" then    put word 3 of the short name of the target into choixName    put "Choix multiple" && choixName into cardName    go to cd cardName of stack pile("criteresRecherche") in a new window    if the result is not empty then pasPrt    exit mouseDown  end if  -------------------------------------------------------------------------end mouseDownon newCard  mode redacteur  pass newCardend newCard</pre>